home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 4 / DOS092.dsk / FULL TEXT JONAH.bas < prev    next >
BASIC Source File  |  2012-02-16  |  23KB  |  469 lines
  1. 10  GOTO 100
  2. 20  POKE  -16368,0
  3. 21  IF  PEEK(KB) >C5  THEN 24
  4. 22  IF BF >0  THEN  IF  PEEK(B0) >C5  OR  PEEK(B1) >C5  THEN 24
  5. 23  GOTO 21
  6. 24 SP =  -16336: FOR I = 0 TO 10:J =  PEEK(SP) - PEEK(SP) + PEEK(SP): NEXT 
  7. 25 KEY =  PEEK(KB): POKE  -16368,0: RETURN 
  8. 30 L0 = 249:L1 = 250:L2 = 251:L9 = 26256
  9. 31 L3 = 252:L4 = 253:C1 = 256
  10. 33  POKE 254,99: POKE 255,0
  11. 37  POKE L4,SH: POKE L3,RO: POKE L1,(XS > = C1): POKE L0,XS -C1 * PEEK(L1): POKE L2,YS: CALL L9: RETURN 
  12. 39 WL = 0:WT = 0:WR = 39:WB = 23: POKE 6,255: PRINT  CHR$(5) CHR$(18);
  13. 40  POKE 34,WT: POKE 32,WL: CALL 35855
  14. 43  POKE 33,WR: POKE 35,WB
  15. 44  SPEED= SS
  16. 45  VTAB WT +1: HTAB WL +1: RETURN 
  17. 100  IF  PEEK(35840) = 76  THEN 112
  18. 110  PRINT  CHR$(13) CHR$(4)"BLOADPIC+TRUSTY"
  19. 112  CALL 35840: CALL 1002: POKE 6,0
  20. 115  HIMEM: 29695
  21. 116  LOMEM: 26530
  22. 120  HGR2 
  23. 125 D$ =  CHR$(13) + CHR$(4)
  24. 130  PRINT D$"BLOADSST/ML.MOD,A$6680"
  25. 135  PRINT D$"BLOADSHAPES.SST,A$6300"
  26. 200  VTAB 3: HTAB 7: PRINT "<CTRL-E>  J O N A H<CTRL-R>"
  27. 205  VTAB 7: HTAB 9: PRINT "STORY  WITH  FULL  TEXT"
  28. 210  VTAB 12: PRINT "PROGRAM BY:  D<CTRL-S>R. <CTRL-A>M<CTRL-S>ARK <CTRL-A>C<CTRL-S>ROSS<CTRL-A>"
  29. 214  PRINT : PRINT "GRAPHICS BY:        FANCY PRINTING BY:"
  30. 216  PRINT " GRAPHICS MAGICIAN     DOUG TRUSTY"
  31. 218  PRINT " PENGUIN SOFTWARE      GRAPE, B<CTRL-S>OX<CTRL-A>  576"
  32. 219  PRINT "                       K<CTRL-S>EYPORT, <CTRL-A>WA 98345"
  33. 220  VTAB 20: PRINT "PRESS  ANY  KEY  OR  GAME  BUTTON        ": PRINT "  TO  GO  TO  THE  NEXT  SCENE."
  34. 222  PRINT : PRINT "PRESS LEFT ARROW TO GO BACK A SCENE.";
  35. 225 KB =  -16384:B0 =  -16287:B1 =  -16286:C5 = 127
  36. 226 SS = 180: REM READING SPEED
  37. 227  HCOLOR= 6: HPLOT 0,0 TO 278,0 TO 278,68 TO 0,68 TO 0,0
  38. 228  HPLOT 2,1 TO 276,1 TO 276,69 TO 2,69 TO 2,1
  39. 229 BF = 0: IF  PEEK(B0) < = C5  OR  PEEK(B1) < = C5  THEN BF = 1
  40. 230  GOSUB 20: GOSUB 39
  41. 1000  PRINT D$"BLOADPRAYING.SPC,A$6000"
  42. 1001  GOSUB 62000
  43. 1005  CALL 35846
  44. 1007  VTAB 21: PRINT "  <CTRL-A>T<CTRL-S>HE <CTRL-A>L<CTRL-S>ORD SPOKE TO<CTRL-A> J<CTRL-S>ONAH AND SAID,<CTRL-A>  "
  45. 1010  PRINT "  <CTRL-A>'G<CTRL-S>ET UP AND GO TO THE GREAT CITY OF<CTRL-A>
  46. 1012  PRINT "  <CTRL-A>N<CTRL-S>INEVEH AND PREACH AGAINST IT BECAUSE<CTRL-A>"
  47. 1014  PRINT " <CTRL-S> OF ITS WICKEDNESS<CTRL-A>.   '";: GOSUB 39: CALL 35846
  48. 1027  GOSUB 20
  49. 1030  VTAB 9: HTAB 23: PRINT "<CTRL-E>GO TO"
  50. 1040  HTAB 21: PRINT "<CTRL-E>NINEVEH<CTRL-R>"
  51. 1050  GOSUB 20: IF KEY = 136  THEN 1000
  52. 2000  PRINT D$"BLOADMAP.SPC,A$6000"
  53. 2010  GOSUB 62000
  54. 2030  VTAB 16: HTAB 18: PRINT "<CTRL-A> EGYPT "
  55. 2035  HCOLOR= 5
  56. 2040  VTAB 14: HTAB 27: PRINT "ISRAEL"
  57. 2045  HPLOT 190,105 TO 177,90 TO 178,90 TO 191,105 TO 192,105 TO 179,90
  58. 2047  GOSUB 20: IF KEY = 136  THEN 1000
  59. 2050  VTAB 7: HTAB 31: PRINT " NINEVEH "
  60. 2052  HCOLOR= 0: HPLOT 177,88 TO 218,73
  61. 2055  GOSUB 20: IF KEY = 136  THEN 2000
  62. 2060  VTAB 12: HTAB 20: PRINT "JOPPA"
  63. 2065  HPLOT 160,96 TO 10,50
  64. 2070  VTAB 5: HTAB 2: PRINT "TARSHISH"
  65. 2080  VTAB 20: PRINT "<CTRL-A>B<CTRL-S>UT<CTRL-A> J<CTRL-S>ONAH TRIED TO RUN "
  66. 2090  PRINT "AWAY FROM THE PRESENCE "
  67. 2100  PRINT "<CTRL-S>OF THE<CTRL-A> L<CTRL-S>ORD BY FLEEING "
  68. 2110  PRINT "<CTRL-S>TO<CTRL-A> T<CTRL-S>ARSHISH.<CTRL-A>           "
  69. 2200  VTAB 1: GOSUB 20: IF KEY = 136  THEN 2000
  70. 3000  PRINT D$"BLOADJOPPA.SPC,A$6000"
  71. 3002  GOSUB 62000
  72. 3004  POKE 35878,255
  73. 3005 BL$ = "                          ": VTAB 9: HTAB 1: PRINT BL$
  74. 3006  PRINT "  H<CTRL-S>E WENT DOWN TO <CTRL-A> J<CTRL-S>OPPA  ": PRINT BL$
  75. 3008  PRINT "  AND FOUND A SHIP GOING  "
  76. 3009  PRINT BL$
  77. 3010  PRINT "  TO<CTRL-A> T<CTRL-S>ARSHISH AND PAID    "
  78. 3011  PRINT BL$
  79. 3012  PRINT "  THE FARE AND GOT ON IT.<CTRL-A> "
  80. 3014  PRINT BL$
  81. 3020  GOSUB 39: GOSUB 20: IF KEY = 136  THEN 2000
  82. 3300  PRINT D$"BLOADSAIL AWAY.SPC,A$6000"
  83. 3330  GOSUB 62000
  84. 3332  POKE  -16368,0
  85. 3335  POKE 255,1
  86. 3340 SH = 1:RO = 0: POKE 5,0:XS = 192:YS = 40: GOSUB 30
  87. 3342 YS = YS +1: GOSUB 37:YS = YS +1: GOSUB 37
  88. 3350 ST = 9: FOR X = XS TO 36  STEP  -ST
  89. 3352 XS = X: GOSUB 37:YS = YS -1: GOSUB 37:YS = YS -1: GOSUB 37
  90. 3360 XS = X -ST: GOSUB 37:YS = YS +1: GOSUB 37:YS = YS +1: GOSUB 37
  91. 3361  IF  PEEK(KB) >C5  THEN X = 0
  92. 3362  IF BF >0  THEN  IF  PEEK(B0) >C5  OR  PEEK(B1) >C5  THEN X = 0
  93. 3363  NEXT X
  94. 3365  IF  PEEK(KB) >C5  THEN 3580
  95. 3366  IF BF >0  THEN  IF  PEEK(B0) >C5  OR  PEEK(B1) >C5  THEN 3580
  96. 3370  GOSUB 37:YS = YS -1: GOSUB 37:YS = YS -1: GOSUB 37: GOTO 3340
  97. 3580  IF  PEEK(KB) = 136  THEN 3000
  98. 3590  POKE  -16368,0
  99. 3600  PRINT D$"BLOADSHIP1.SPC,A$6000"
  100. 3610  GOSUB 62000
  101. 3620  POKE  -16368,0: POKE 255,0: POKE 26459,1
  102. 3625 YS = 15:XS = 140:SH = 2: GOSUB 30
  103. 3630 XN = XS -6 +12 * RND(1): IF XN >180  OR XN <119  THEN 3630
  104. 3640 NS = 2 +(SH = 2)
  105. 3650  HCOLOR= 7: POKE 255,1: GOSUB 37
  106. 3660  POKE 255,0:XS = XN:SH = NS: GOSUB 37
  107. 3665  IF  PEEK(KB) >C5  THEN 3672
  108. 3670  IF BF >0  THEN  IF  PEEK(B0) >C5  OR  PEEK(B1) >C5  THEN 3672
  109. 3671  GOTO 3630
  110. 3672  IF  PEEK(KB) = 136  THEN 3300
  111. 3675  POKE  -16368,0
  112. 3900  VTAB 1
  113. 4000  PRINT D$"BLOADSTORM SEA.SPC,A$6000"
  114. 4002  GOSUB 62000
  115. 4004  POKE 26459,93: POKE 255,0
  116. 4005 WR = 34:WL = 1:WT = 11:WB = 23: GOSUB 40
  117. 4006  VTAB 12: PRINT  CHR$(18): VTAB 24
  118. 4008  HTAB 2: PRINT "  <CTRL-A>B<CTRL-S>UT THE <CTRL-A>L<CTRL-S>ORD SENT A GREAT STORM "
  119. 4010  HTAB 2: PRINT " AND THE SEA WAS SO VIOLENT THAT  "
  120. 4012  HTAB 2: PRINT " THE SHIP WAS ABOUT TO BREAK UP.<CTRL-A>  "
  121. 4014  HTAB 2: PRINT " T<CTRL-S>HEN THE SAILORS WERE AFRAID AND "
  122. 4016  HTAB 2: PRINT " BEGAN PRAYING TO THEIR GODS AND  "
  123. 4018  HTAB 2: PRINT " THREW THE CARGO INTO THE SEA TO  "
  124. 4020  HTAB 2: PRINT "<CTRL-S> LIGHTEN THE SHIP.<CTRL-A>                ";
  125. 4021  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 3300
  126. 4023  PRINT  CHR$(12)
  127. 4024  HTAB 2: PRINT "  <CTRL-A>B<CTRL-S>UT <CTRL-A>J<CTRL-S>ONAH WAS BELOW DECK, FAST  "
  128. 4025  HTAB 2: PRINT " ASLEEP.  <CTRL-A>T<CTRL-S>HE CAPTAIN CAME TO HIM "
  129. 4026  HTAB 2: PRINT " AND SAID, '<CTRL-A>W<CTRL-S>HAT ARE YOU DOING    "
  130. 4027  HTAB 2: PRINT " SLEEPING?  <CTRL-A>G<CTRL-S>ET UP AND CALL UPON  "
  131. 4029  HTAB 2: PRINT " YOUR <CTRL-A>G<CTRL-S>OD.<CTRL-A>  M<CTRL-S>AYBE YOUR <CTRL-A>G<CTRL-S>OD WILL   "
  132. 4032  HTAB 2: PRINT " <CTRL-S>HELP US SO WE WON'T PERISH<CTRL-A>.'     "
  133. 4040  POKE 26459,93: POKE 255,0: REM  SET FOR XDRAW
  134. 4041 XS = 170:YS = 79:SH = 1
  135. 4044 RO = 0: GOSUB 30
  136. 4046 XS = XS +2:YS = YS +2: GOSUB 37
  137. 4048  GOSUB 37:XS = XS -2:YS = YS -2: GOSUB 37
  138. 4050 RO = 62: GOSUB 37:XS = XS +2:YS = YS +2: GOSUB 37
  139. 4055  GOSUB 37:XS = XS -2:YS = YS -2: GOSUB 37
  140. 4060 XS = XS -30 * RND(1): IF XS <1  THEN XS = 180
  141. 4090  IF  PEEK(KB) >C5  THEN 4102
  142. 4100  IF BF >0  THEN  IF  PEEK(B0) >C5  OR  PEEK(B1) >C5  THEN 4102
  143. 4101  GOTO 4044
  144. 4102  IF  PEEK(KB) = 136  THEN 4000
  145. 4105 RO = 0: GOSUB 30:XS = XS +2:YS = YS +2: GOSUB 37
  146. 4110  GOSUB 24: REM BUZZ
  147. 4120  GOSUB 39
  148. 5000  PRINT D$"BLOADLOTS.SPC,A$6000"
  149. 5002  PRINT D$"BLOADSHAPES.SST,A$6300"
  150. 5010  GOSUB 62000
  151. 5020 WT = 18: GOSUB 40
  152. 5021  POKE 6,0
  153. 5023  VTAB 24: PRINT " <CTRL-A>  T<CTRL-S>HEN THE SAILORS SAID, <CTRL-A>'L<CTRL-S>ET'S CAST    LOTS TO KNOW WHO HAS BROUGHT THIS EVIL"
  154. 5026  PRINT "<CTRL-S> UPON US.<CTRL-A>'  S<CTRL-S>O THEY CAST LOTS, AND THE   LOT FELL UPON<CTRL-A> J<CTRL-S>ONAH<CTRL-A>."
  155. 5030  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 4000
  156. 5032  PRINT  CHR$(12)
  157. 5035  PRINT " <CTRL-A>  T<CTRL-S>HEN THEY SAID TO HIM, <CTRL-A>'T<CTRL-S>ELL US WHO   HAS BROUGHT THIS EVIL UPON US.<CTRL-A>  W<CTRL-S>HAT   ";
  158. 5040  PRINT "<CTRL-S> IS YOUR OCCUPATION?<CTRL-A>  W<CTRL-S>HERE DO YOU COME ";
  159. 5042  PRINT " <CTRL-S>FROM?  <CTRL-A>W<CTRL-S>HAT IS YOUR COUNTRY?"
  160. 5045  GOSUB 20: IF KEY = 136  THEN 5000
  161. 5047  PRINT  CHR$(12)
  162. 5050  PRINT : PRINT " <CTRL-A>  J<CTRL-S>ONAH ANSWERED, <CTRL-A>'I<CTRL-S> AM A<CTRL-A> H<CTRL-S>EBREW AND <CTRL-A>"
  163. 5055  PRINT " <CTRL-A>I<CTRL-S> WORSHIP THE <CTRL-A>L<CTRL-S>ORD, THE <CTRL-A>G<CTRL-S>OD OF HEAVEN,"
  164. 5058  PRINT " <CTRL-A>W<CTRL-S>HO HAS MADE THE SEA AND THE DRY LAND.<CTRL-A>"
  165. 5060  GOSUB 20: IF KEY = 136  THEN 5032
  166. 5062  PRINT  CHR$(12)
  167. 5065  PRINT " <CTRL-A>  T<CTRL-S>HEN THE SAILORS WERE TERRIFIED AND  ";
  168. 5068  PRINT "<CTRL-S> SAID TO HIM, <CTRL-A>'W<CTRL-S>HAT HAVE YOU DONE?!' <CTRL-A>   ";
  169. 5070  PRINT "<CTRL-S> FOR THEY KNEW HE WAS FLEEING FROM THE   PRESENCE OF THE<CTRL-A> L<CTRL-S>ORD BECAUSE HE HAD    ";
  170. 5075  PRINT " TOLD THEM SO."
  171. 5080  PRINT : GOSUB 20: IF KEY = 136  THEN 5047
  172. 5085  PRINT  CHR$(12)
  173. 5090  PRINT " <CTRL-A>  T<CTRL-S>HEN THEY SAID TO HIM,<CTRL-A> 'W<CTRL-S>HAT SHALL    WE DO TO YOU TO STOP THE STORM?<CTRL-A>'       <CTRL-A>";
  174. 5095  PRINT "<CTRL-A> F<CTRL-S>OR THE SEA WAS BECOMING MORE VIOLENT<CTRL-A>. ";
  175. 5100  GOSUB 20: IF KEY = 136  THEN 5062
  176. 5102  PRINT  CHR$(12)
  177. 5105  PRINT : PRINT "   <CTRL-A>A<CTRL-S>ND <CTRL-A>J<CTRL-S>ONAH SAID, '<CTRL-A>T<CTRL-S>HROW ME INTO THE    SEA AND THE SEA WILL BECOME CALM FOR    <CTRL-A>I<CTRL-S> KNOW <CTRL-A>I<CTRL-S> AM THE REASON THIS GREAT STORM HAS COME UPON YOU.<CTRL-A>"
  178. 5116  PRINT 
  179. 5120  GOSUB 20: IF KEY = 136  THEN 5085
  180. 5122  PRINT  CHR$(12)
  181. 5125  PRINT : PRINT " <CTRL-A>  T<CTRL-S>HE SAILORS DID NOT WANT TO DO THIS   AND ROWED HARD TO BRING THE SHIP TO<CTRL-A>    <CTRL-S>";
  182. 5130  PRINT " LAND BUT THEY COULD NOT BECAUSE THE SEA WAS TOO STORMY.<CTRL-A>"
  183. 5132  PRINT 
  184. 5135  GOSUB 20: IF KEY = 136  THEN  PRINT D$"BLOADSHAPES.SST,A$6300"
  185. 5136  IF KEY = 136  THEN 5122
  186. 5137  PRINT  CHR$(12);
  187. 5140  PRINT " <CTRL-A>  F<CTRL-S>INALLY THEY CRIED TO THE<CTRL-A> L<CTRL-S>ORD AND    SAID,<CTRL-A> 'W<CTRL-S>E BEG YOU<CTRL-A> O L<CTRL-S>ORD NOT TO LET US ";
  188. 5145  PRINT " PERISH FOR THIS MAN'S LIFE.<CTRL-A>  D<CTRL-S>O NOT     HOLD US ACCOUNTABLE FOR KILLING AN     ";
  189. 5150  PRINT " INNOCENT MAN FOR YOU <CTRL-A>O L<CTRL-S>ORD HAVE DONE   AS YOU PLEASED.<CTRL-A>'";
  190. 5160  GOSUB 20: IF KEY = 136  THEN 5122
  191. 5390  GOSUB 39
  192. 5395 WT = 0: GOSUB 40: VTAB 1
  193. 6000  PRINT D$"BLOADTHROW.SPC,A$6000"
  194. 6005  POKE 6,0
  195. 6010  GOSUB 62000
  196. 6015 WT = 15:WL = 6:WR = 31: GOSUB 40
  197. 6017  POKE 35878,0
  198. 6019  PRINT  CHR$(12): PRINT 
  199. 6020  PRINT " <CTRL-A> S<CTRL-S>O THEY TOOK<CTRL-A> J<CTRL-S>ONAH AND  ";
  200. 6025  PRINT " THREW HIM INTO THE SEA.  ";
  201. 6030  PRINT "<CTRL-A> T<CTRL-S>HEN THE STORM STOPPED   ";
  202. 6035  PRINT " AND THE SEA BECAME CALM<CTRL-A>. ";
  203. 6055  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 5000
  204. 6057 WT = 15:WL = 6:WR = 32: GOSUB 40
  205. 6060  PRINT  CHR$(12): PRINT 
  206. 6065  PRINT "    <CTRL-A>W<CTRL-S>HEN THEY SAW THIS THE
  207. 6070  PRINT " SAILORS REVERENTLY FEARED"
  208. 6080  PRINT " THE <CTRL-A>L<CTRL-S>ORD AND SACRIFICED  "
  209. 6085  PRINT " TO<CTRL-A> H<CTRL-S>IM AND MADE VOWS.<CTRL-A>    "
  210. 6620  GOSUB 20: IF KEY = 136  THEN 6000
  211. 6630  GOSUB 39
  212. 7000  PRINT D$"BLOAD WHALE.SPC,A$6000"
  213. 7002  GOSUB 62000
  214. 7003 WL = 6:WR = 31:WT = 20: GOSUB 40: POKE 6,0: PRINT  CHR$(12)
  215. 7004  PRINT "    <CTRL-A>M<CTRL-S>EANWHILE THE <CTRL-A>L<CTRL-S>ORD    ";
  216. 7006  PRINT "<CTRL-S> PREPARED A GREAT FISH TO ";
  217. 7008  PRINT "<CTRL-S> SWALLOW <CTRL-A>J<CTRL-S>ONAH<CTRL-A>.          ";
  218. 7010  GOSUB 39
  219. 7020  GOSUB 20: IF KEY = 136  THEN 6000
  220. 8000  PRINT D$"BLOADBELLY.SPC,A$6000"
  221. 8010  GOSUB 62000
  222. 8012  GOSUB 20: IF KEY = 136  THEN 7000
  223. 8015 WT = 14: GOSUB 40: POKE 6,0
  224. 8019  PRINT  CHR$(12)
  225. 8020  PRINT "   <CTRL-A>A<CTRL-S>ND<CTRL-A> J<CTRL-S>ONAH WAS IN THE BELLY OF THE"
  226. 8022  PRINT " FISH THREE DAYS AND THREE NIGHTS.<CTRL-A>"
  227. 8025  GOSUB 20: IF KEY = 136  THEN 8000
  228. 8030  PRINT  CHR$(12)
  229. 8033  PRINT "   <CTRL-A>J<CTRL-S>ONAH PRAYED TO THE <CTRL-A>L<CTRL-S>ORD HIS <CTRL-A>G<CTRL-S>OD"
  230. 8040  PRINT " FROM INSIDE THE FISH:<CTRL-A>"
  231. 8042  PRINT 
  232. 8045  PRINT " <CTRL-A>B<CTRL-S>ECAUSE OF MY GREAT DISTRESS <CTRL-A>I<CTRL-S> CRIED"
  233. 8050  PRINT "<CTRL-S> TO THE<CTRL-A> L<CTRL-S>ORD AND<CTRL-A> H<CTRL-S>E HEARD ME;"
  234. 8054  PRINT " OUT OF THE BELLY OF DEATH <CTRL-A>I <CTRL-S>CRIED"
  235. 8058  PRINT "    AND <CTRL-A>Y<CTRL-S>OU HEARD MY VOICE.<CTRL-A>"
  236. 8060  PRINT : GOSUB 20: IF KEY = 136  THEN 8000
  237. 8065  PRINT " <CTRL-A>F<CTRL-S>OR <CTRL-A>Y<CTRL-S>OU CAST ME INTO THE DEEP;
  238. 8068  PRINT " INTO THE MIDDLE OF THE SEA, THE FLOODS"
  239. 8070  PRINT " SURROUNDED ME AND THE WAVES SWEPT"
  240. 8073  PRINT "         OVER ME.<CTRL-A>
  241. 8076  PRINT : GOSUB 20: IF KEY = 136  THEN 8030
  242. 8080  PRINT " <CTRL-A>T<CTRL-S>HEN <CTRL-A>I<CTRL-S> SAID, '<CTRL-A>I<CTRL-S> AM CAST OUT OF <CTRL-A>Y<CTRL-S>OUR"
  243. 8085  PRINT " SIGHT, YET <CTRL-A>I<CTRL-S> WILL LOOK AGAIN TOWARD"
  244. 8090  PRINT "<CTRL-A> Y<CTRL-S>OUR HOLY TEMPLE.<CTRL-A>'"
  245. 8092  PRINT : GOSUB 20: PRINT  CHR$(12)
  246. 8095  IF KEY = 136  THEN 8065
  247. 8100  PRINT "    <CTRL-A>T<CTRL-S>HE WATERS SURROUNDED ME, <CTRL-A>I<CTRL-S> BEGAN"
  248. 8105  PRINT " TO SINK AND SEAWEED WRAPPED ROUND MY"
  249. 8110  PRINT " HEAD.  <CTRL-A>I<CTRL-S> WENT DOWN TO THE BOTTOMS"
  250. 8115  PRINT " OF THE MOUNTAINS; <CTRL-A>I <CTRL-S>WAS BURIED:"
  251. 8120  PRINT " YET <CTRL-A>Y<CTRL-S>OU HAVE BROUGHT MY LIFE UP FROM"
  252. 8125  PRINT " DEATH <CTRL-A>O L<CTRL-S>ORD MY <CTRL-A>G<CTRL-S>OD.<CTRL-A>"
  253. 8130  PRINT : GOSUB 20: PRINT  CHR$(12)
  254. 8135  IF KEY = 136  THEN 8080
  255. 8140  PRINT "    <CTRL-A>I<CTRL-S> WAS FAINT AND HAD GIVEN UP ALL"
  256. 8145  PRINT " HOPE.  <CTRL-A>T<CTRL-S>HEN <CTRL-A>I<CTRL-S> BEGAN TO MEDITATE ON"
  257. 8150  PRINT " THE <CTRL-A>L<CTRL-S>ORD AND PRAYED TO <CTRL-A>Y<CTRL-S>OU IN <CTRL-A>Y<CTRL-S>OUR"
  258. 8155  PRINT " HOLY TEMPLE.<CTRL-A>"
  259. 8160  PRINT : GOSUB 20: PRINT  CHR$(12)
  260. 8165  IF KEY = 136  THEN 8100
  261. 8170  PRINT "     T<CTRL-S>HOSE WHO WORSHIP LYING IDOLS"
  262. 8175  PRINT " <CTRL-S>GIVE UP THE MERCY THAT COULD BE THEIRS.<CTRL-A>";
  263. 8180  PRINT " <CTRL-A>B<CTRL-S>UT <CTRL-A>I<CTRL-S> WILL SACRIFICE TO <CTRL-A>Y<CTRL-S>OU WITH"
  264. 8185  PRINT " THANKSGIVING.  <CTRL-A>I<CTRL-S> WILL DO AS <CTRL-A>I<CTRL-S> HAVE"
  265. 8190  PRINT " VOWED.  <CTRL-A>S<CTRL-S>ALVATION IS OF THE <CTRL-A>L<CTRL-S>ORD<CTRL-A>!"
  266. 8520  GOSUB 20: IF KEY = 136  THEN  PRINT  CHR$(12): GOTO 8140
  267. 8525  GOSUB 39
  268. 9000  PRINT D$"BLOAD SPIT OUT.SPC,A$6000"
  269. 9010  GOSUB 62000
  270. 9012  CALL 35846
  271. 9015 WL = 5:WR = 34:WT = 19: GOSUB 40
  272. 9016  POKE 6,0
  273. 9020  PRINT  CHR$(12)
  274. 9025  PRINT "     <CTRL-A>A<CTRL-S>ND THE <CTRL-A>L<CTRL-S>ORD SPOKE TO"
  275. 9030  PRINT " <CTRL-S>THE FISH AND IT VOMITED <CTRL-A>"
  276. 9035  PRINT " <CTRL-A>J<CTRL-S>ONAH ONTO DRY LAND.<CTRL-A>"
  277. 9090  GOSUB 39
  278. 9095  GOSUB 20: IF KEY = 136  THEN 8000
  279. 10000  PRINT D$"BLOAD TO NINEVEH.SPC,A$6000"
  280. 10010  GOSUB 62000
  281. 10015 WL = 0:WR = 39:WT = 16: GOSUB 40
  282. 10017  POKE 6,0: POKE 35878,255
  283. 10020  PRINT "     <CTRL-A>T<CTRL-S>HE <CTRL-A>L<CTRL-S>ORD SPOKE TO <CTRL-A>J<CTRL-S>ONAH A SECOND"
  284. 10025  PRINT " TIME AND SAID, '<CTRL-A>G<CTRL-S>ET UP AND GO TO THE"
  285. 10030  PRINT " GREAT CITY OF <CTRL-A>N<CTRL-S>INEVEH AND PREACH"
  286. 10035  PRINT "<CTRL-S> THE MESSAGE THAT<CTRL-A> I<CTRL-S> GIVE YOU.<CTRL-A>'"
  287. 10040  PRINT 
  288. 10045  PRINT " <CTRL-A>T<CTRL-S>HIS TIME<CTRL-A> J<CTRL-S>ONAH OBEYED THE<CTRL-A> L<CTRL-S>ORD"
  289. 10050  PRINT " AND  WENT  TO  <CTRL-A>N<CTRL-S>INEVEH.<CTRL-A>"
  290. 10900  GOSUB 39: POKE 6,255: VTAB 1
  291. 10910  GOSUB 20: IF KEY = 136  THEN 9000
  292. 11000  PRINT D$"BLOAD PREACHING.SPC,A$6000"
  293. 11010  GOSUB 62000
  294. 11020 WT = 16:WL = 0:WR = 23:WB = 23: GOSUB 40
  295. 11022  POKE 6,0: CALL 35846
  296. 11025  PRINT  CHR$(12);
  297. 11030  PRINT "  <CTRL-A> N<CTRL-S>OW<CTRL-A> N<CTRL-S>INEVEH WAS A<CTRL-A>"
  298. 11035  PRINT "<CTRL-S> HUGE CITY THAT TOOK"
  299. 11040  PRINT " 3 DAYS TO WALK THROUGH.<CTRL-A>";
  300. 11042  GOSUB 20
  301. 11045  PRINT "   <CTRL-A>J<CTRL-S>ONAH WENT A DAY'S "
  302. 11047  PRINT " JOURNEY INTO THE CITY"
  303. 11050  PRINT "<CTRL-S> AND CRIED,<CTRL-A> 'I<CTRL-S>N 4<CTRL-A>O<CTRL-S> DAYS"
  304. 11055  PRINT " <CTRL-A>N<CTRL-S>INEVEH SHALL BE"
  305. 11060  PRINT " DESTROYED<CTRL-A> !'"
  306. 11900  GOSUB 39: GOSUB 20
  307. 11910  IF KEY = 136  THEN 10000
  308. 12000  PRINT D$"BLOADSACK.SPC,A$6000"
  309. 12010  GOSUB 62000
  310. 12020 WT = 15:WL = 0:WR = 23:WB = 23: GOSUB 40: CALL 35846
  311. 12030  PRINT  CHR$(12);
  312. 12035  PRINT "   <CTRL-A>T<CTRL-S>HE PEOPLE OF <CTRL-A>N<CTRL-S>INEVEH";
  313. 12040  PRINT " BELIEVED <CTRL-A>G<CTRL-S>OD. <CTRL-A>T<CTRL-S>HEY PRO-";
  314. 12045  PRINT " CLAIMED A FAST AND"
  315. 12050  PRINT " EVERYONE PUT ON SACK"
  316. 12055  PRINT " CLOTH<CTRL-A>."
  317. 12060  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 11000
  318. 12062  PRINT  CHR$(12)
  319. 12065  PRINT "   <CTRL-A>W<CTRL-S>ORD CAME EVEN TO THE";
  320. 12070  PRINT " KING AND HE TOOK OFF"
  321. 12075  PRINT " HIS ROBE AND COVERED"
  322. 12080  PRINT " HIMSELF WITH SACKCLOTH"
  323. 12085  PRINT " AND SAT IN ASHES.<CTRL-A>"
  324. 12090  GOSUB 20: IF KEY = 136  THEN 12030
  325. 12092 WT = 7:WL = 0:WR = 23:WB = 23: GOSUB 40
  326. 12095  PRINT  CHR$(12)
  327. 12100  PRINT " <CTRL-A>T<CTRL-S>HEN HE ISSUED A DECREE";
  328. 12105  PRINT " THROUGHTOUT <CTRL-A>N<CTRL-S>INEVEH:"
  329. 12110  PRINT " <CTRL-A>L<CTRL-S>ET NO MAN NOR BEAST,"
  330. 12115  PRINT " HERD NOR FLOCK TASTE"
  331. 12120  PRINT " ANYTHING. <CTRL-A>D<CTRL-S>ON'T LET"
  332. 12125  PRINT " THEM EAT OR DRINK.<CTRL-A>"
  333. 12140  PRINT " B<CTRL-S>UT LET MAN AND BEAST"
  334. 12145  PRINT " BE COVERED WITH SACK"
  335. 12150  PRINT " CLOTH AND CRY FERVENTLY";
  336. 12155  PRINT " TO <CTRL-A>G<CTRL-S>OD. <CTRL-A>L<CTRL-S>ET EVERYONE"
  337. 12160  PRINT " REPENT OF HIS EVIL WAYS";
  338. 12165  PRINT " AND FROM HIS VIOLENCE.<CTRL-A>"
  339. 12180  PRINT " <CTRL-A>G<CTRL-S>OD MAY REPENT AND TURN";
  340. 12185  PRINT " FROM <CTRL-A>H<CTRL-S>IS FIERCE ANGER"
  341. 12190  PRINT " SO WE WILL NOT PERISH.<CTRL-A>"
  342. 12195  GOSUB 20: IF KEY = 136  THEN 12095
  343. 12197  PRINT  CHR$(12)
  344. 12200  PRINT "   <CTRL-A>A<CTRL-S>ND <CTRL-A>G<CTRL-S>OD SAW THEIR"
  345. 12210  PRINT " ACTIONS, THAT THEY DID"
  346. 12220  PRINT " REPENT THEIR EVIL WAYS,";
  347. 12230  PRINT " <CTRL-S>AND<CTRL-A> G<CTRL-S>OD HAD COMPASSION"
  348. 12240  PRINT " ON THEM AND DID NOT"
  349. 12250  PRINT " DESTROY THEM.<CTRL-A>"
  350. 12300  GOSUB 20: IF KEY = 136  THEN 12095
  351. 12900  GOSUB 39
  352. 13000  PRINT D$"BLOAD OUTSIDE N.SPC,A$6000"
  353. 13010  GOSUB 62000
  354. 13020 WT = 16:WL = 0:WR = 39:WB = 23: GOSUB 40
  355. 13030  PRINT  CHR$(12)
  356. 13040  PRINT "  <CTRL-A> J<CTRL-S>ONAH WAS FURIOUS THAT <CTRL-A>G<CTRL-S>OD WAS NOT"
  357. 13050  PRINT " GOING TO DESTROY THEM.  <CTRL-A>H<CTRL-S>E COMPLAINED"
  358. 13060  PRINT " TO THE <CTRL-A>L<CTRL-S>ORD, '<CTRL-A>I<CTRL-S>SN'T THIS WHAT <CTRL-A>I<CTRL-S> SAID"
  359. 13070  PRINT " WOULD HAPPEN WHEN<CTRL-A> I<CTRL-S> WAS IN MY COUNTRY<CTRL-A>?"
  360. 13080  PRINT " <CTRL-A>I<CTRL-S>SN'T THIS WHY <CTRL-A>I<CTRL-S> FLED TO <CTRL-A>T<CTRL-S>ARSHISH?!"
  361. 13090  PRINT " <CTRL-A>I<CTRL-S> KNEW THAT <CTRL-A>Y<CTRL-S>OU ARE A GRACIOUS <CTRL-A>G<CTRL-S>OD,"
  362. 13100  PRINT " SLOW TO ANGER AND OF GREAT KINDNESS.<CTRL-A>"
  363. 13110  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 12000
  364. 13120  PRINT " <CTRL-A>I<CTRL-S> KNEW THAT WHEN SINNERS TURN TO <CTRL-A>Y<CTRL-S>OU"
  365. 13130  PRINT "<CTRL-A> Y<CTRL-S>OU WILL REVOKE THE SENTENCE OF EVIL"
  366. 13140  PRINT " AGAINST THEM.<CTRL-A>"
  367. 13145  PRINT 
  368. 13150  PRINT "   <CTRL-A>N<CTRL-S>OW <CTRL-A>L<CTRL-S>ORD TAKE MY LIFE FOR IT IS"
  369. 13160  PRINT " BETTER FOR ME TO DIE THAN TO LIVE.<CTRL-A>"
  370. 13170  GOSUB 20: PRINT  CHR$(12): IF KEY = 136  THEN 13030
  371. 13172  PRINT "    T<CTRL-S>HEN THE <CTRL-A>L<CTRL-S>ORD SAID TO <CTRL-A>J<CTRL-S>ONAH,<CTRL-A>"
  372. 13174  PRINT 
  373. 13180  PRINT "   'I<CTRL-S>S  IT  RIGHT  FOR  YOU"
  374. 13185  PRINT 
  375. 13190  PRINT "  <CTRL-S>  TO  BE  ANGRY ? '<CTRL-A>"
  376. 13920  GOSUB 39: GOSUB 20: IF KEY = 136  THEN 13000
  377. 14000  PRINT D$"BLOAD SHELTER 1.SPC,A$6000"
  378. 14002  GOSUB 62000
  379. 14010 WT = 17:WL = 5:WR = 34: GOSUB 40: CALL 35846
  380. 14012  PRINT  CHR$(12)
  381. 14013  PRINT "   <CTRL-A>J<CTRL-S>ONAH BUILT A SHELTER ON"
  382. 14015  PRINT "THE EAST SIDE OF THE CITY"
  383. 14017  PRINT "AND SAT IN ITS SHADE"
  384. 14020  PRINT "TO SEE WHAT WOULD BECOME OF"
  385. 14024  PRINT "THE  CITY.<CTRL-A>"
  386. 14030  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 13000
  387. 14100  PRINT D$"BLOAD SHELTER 2.SPC,A$6000"
  388. 14102  GOSUB 62000
  389. 14108  PRINT  CHR$(12)
  390. 14110  PRINT "   A<CTRL-S>S HE SAT THERE, THE <CTRL-A>L<CTRL-S>ORD"
  391. 14112  PRINT "CAUSED A VINE TO GROW OVER"
  392. 14114  PRINT "THE SHELTER TO GIVE <CTRL-A>J<CTRL-S>ONAH"
  393. 14116  PRINT "<CTRL-S>SHADE.<CTRL-A>  J<CTRL-S>ONAH WAS GRATEFUL"
  394. 14118  PRINT "FOR  THE  VINE.<CTRL-A>"
  395. 14120  GOSUB 20
  396. 14200  PRINT D$"BLOAD SHELTER 3.SPC,A$6000"
  397. 14201  GOSUB 62000
  398. 14203 WT = 16:WL = 0:WR = 39:WB = 23: GOSUB 40: POKE 6,0
  399. 14205  PRINT  CHR$(12)
  400. 14208  PRINT "   <CTRL-A>T<CTRL-S>HE NEXT DAY <CTRL-A>G<CTRL-S>OD SENT A WORM TO EAT"
  401. 14210  PRINT " <CTRL-S>THE VINE AND IT WITHERED.  <CTRL-A>W<CTRL-S>HEN THE"
  402. 14212  PRINT " SUN ROSE <CTRL-A>G<CTRL-S>OD SENT A STRONG EAST WIND"
  403. 14214  PRINT " AND THE SUN BLAZED ON <CTRL-A>J<CTRL-S>ONAH'S HEAD.<CTRL-A>"
  404. 14216  PRINT " <CTRL-A>H<CTRL-S>E BECAME SICK AND WISHED HIMSELF DEAD.<CTRL-A>";
  405. 14218  PRINT " <CTRL-A>H<CTRL-S>E SAID, '<CTRL-A>I<CTRL-S>T IS BETTER FOR ME TO DIE"
  406. 14220  PRINT " THAN TO LIVE.<CTRL-A>'"
  407. 14230  GOSUB 39
  408. 14240  GOSUB 20: IF KEY = 136  THEN 14000
  409. 15000  PRINT D$"BLOAD PITY.SPC,A$6000"
  410. 15001  GOSUB 62000
  411. 15002  VTAB 3: HTAB 29: PRINT "<CTRL-E><CTRL-A>GOD<CTRL-R>"
  412. 15003 WT = 16: GOSUB 40
  413. 15004  CALL 35846
  414. 15006  PRINT  CHR$(12);
  415. 15008  PRINT "  <CTRL-A>A<CTRL-S>ND <CTRL-A>G<CTRL-S>OD SAID TO <CTRL-A>J<CTRL-S>ONAH, '<CTRL-A>I<CTRL-S>S IT RIGHT"
  416. 15010  PRINT " FOR YOU TO BE ANGRY BECAUSE THE VINE"
  417. 15012  PRINT " DIED?<CTRL-A>'"
  418. 15015  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 14000
  419. 15020  PRINT "   <CTRL-A>A<CTRL-S>ND <CTRL-A>J<CTRL-S>ONAH SAID, '<CTRL-A>I<CTRL-S>T IS RIGHT TO BE"
  420. 15024  PRINT " ANGRY, ANGRY ENOUGH TO DIE.<CTRL-A>'"
  421. 15030  GOSUB 20: IF KEY = 136  THEN 15006
  422. 15035  PRINT  CHR$(12)
  423. 15040  PRINT "   <CTRL-A>T<CTRL-S>HEN THE<CTRL-A> L<CTRL-S>ORD SAID, '<CTRL-A>Y<CTRL-S>OU CARED ABOUT"
  424. 15045  PRINT " THE INSIGNIFICANT VINE THAT YOU"
  425. 15050  PRINT " DIDN'T MAKE.  <CTRL-A>S<CTRL-S>HOULDN'T <CTRL-A>I<CTRL-S> BE EVEN"
  426. 15055  PRINT " <CTRL-S>MORE CONCERNED ABOUT THE GREAT CITY"
  427. 15060  PRINT " OF <CTRL-A>N<CTRL-S>INEVEH WHERE THERE ARE MORE THAN"
  428. 15070  PRINT " <CTRL-A>12O,OOO <CTRL-S>CHILDREN AND ALSO MANY CATTLE?'<CTRL-A>";
  429. 15200  GOSUB 20: IF KEY = 136  THEN 15006
  430. 15210  GOSUB 39
  431. 16000  PRINT D$"BLOADTHREE.SPC,A$6000"
  432. 16002  GOSUB 62000
  433. 16003 WT = 16:WR = 39:WL = 0: GOSUB 40
  434. 16004  POKE 6,0: CALL 35846
  435. 16005  PRINT  CHR$(12)
  436. 16007  PRINT "  MATTHEW  12:39": PRINT 
  437. 16010  PRINT "    <CTRL-A>T<CTRL-S>HEN SOME OF THE <CTRL-A>P<CTRL-S>HARISEES AND"
  438. 16012  PRINT " TEACHERS OF THE LAW SAID TO <CTRL-A>J<CTRL-S>ESUS,"
  439. 16014  PRINT "'<CTRL-A>T<CTRL-S>EACHER SHOW US A MIRACULOUS SIGN.<CTRL-A>'"
  440. 16015  GOSUB 20: IF KEY = 136  THEN  GOSUB 39: GOTO 15000
  441. 16016  PRINT  CHR$(12)" H<CTRL-S>E ANSWERED,<CTRL-A>"
  442. 16018  PRINT "   '<CTRL-A>A<CTRL-S>N EVIL AND ADULTEROUS GENERATION"
  443. 16020  PRINT " ASKS FOR A SIGN AND NO SIGN SHALL BE"
  444. 16022  PRINT " GIVEN TO IT EXCEPT THE SIGN OF THE"
  445. 16024  PRINT " PROPHET<CTRL-A> J<CTRL-S>ONAH.<CTRL-A>'"
  446. 16028  GOSUB 20: IF KEY = 136  THEN 16005
  447. 16030  PRINT  CHR$(12)
  448. 16040  PRINT "   'F<CTRL-S>OR JUST AS <CTRL-A>J<CTRL-S>ONAH WAS THREE DAYS "
  449. 16050  PRINT " AND THREE NIGHTS IN THE BELLY OF THE"
  450. 16060  PRINT "<CTRL-S> FISH, SO SHALL THE<CTRL-A> S<CTRL-S>ON OF<CTRL-A> M<CTRL-S>AN BE"
  451. 16070  PRINT " <CTRL-S>THREE DAYS AND THREE NIGHTS IN THE"
  452. 16080  PRINT " HEART OF THE EARTH.'"
  453. 16085  GOSUB 20: IF KEY = 136  THEN 16016
  454. 16087 WT = 13:WL = 0:WR = 39:WB = 23: GOSUB 40
  455. 16088  PRINT  CHR$(12);
  456. 16090  PRINT "   '<CTRL-A>T<CTRL-S>HE MEN OF <CTRL-A>N<CTRL-S>INEVEH SHALL RISE AT<CTRL-A>"
  457. 16100  PRINT "<CTRL-S> THE JUDGEMENT AND CONDEMN THIS"
  458. 16110  PRINT " GENERATION BECAUSE THEY REPENTED "
  459. 16120  PRINT " AT THE PREACHING OF <CTRL-A>J<CTRL-S>ONAH AND NOW"
  460. 16130  PRINT "<CTRL-S> ONE GREATER THAN<CTRL-A> J<CTRL-S>ONAH IS HERE<CTRL-A>.'"
  461. 16135  GOSUB 39
  462. 16140  GOSUB 20: IF KEY = 136  THEN 16000
  463. 18000  VTAB 21: HTAB 11: PRINT "<CTRL-E>THE  END<CTRL-R>";: VTAB 23: HTAB 1
  464. 18500  POKE  -16368,0: FOR I = 1 TO 10000: IF  PEEK(KB) >C5  THEN 18550
  465. 18510  NEXT 
  466. 18550  PRINT  CHR$(13) CHR$(4)"PR#0"
  467. 18560  TEXT : HOME : VTAB 8: PRINT "LOADING  MENU
  468. 18570  PRINT "<CTRL-D>RUNJONAH MENU"
  469. 62000  POKE 29696,0: POKE 29697,96: CALL 29744: RETURN